home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / cascover / ccmanmac.tex < prev    next >
Encoding:
Text File  |  1994-02-10  |  2.7 KB  |  60 lines
  1. %----------------------------------------------------------------------------%
  2. % Cassette-cover macros for TeX: CCMANMAC.TEX (manual macrofile)             %
  3. % Files supplied: CASCOVER.TEX, CASCFONT.TEX, NORMAL.CAS, SMALL.CAS,         %
  4. %                 CCMANMAC.TEX, MANUAL.TEX, MANUAL.DVI, MANUAL.DOC,          %
  5. %                 EXAMPLES.TEX, EXAMPLES.DVI                                 %
  6. % Author: Stijn Raaijmakers                                                  %
  7. % Date: 10/2/94                                                              %
  8. % Package is freeware.                                                       %
  9. %----------------------------------------------------------------------------%
  10.  
  11. \input normal.cas
  12. \input cascover
  13.  
  14. \normalsize\rm
  15. %---------------------- Small pictures of covers ---------------------
  16. \newdimen\wtest
  17.  
  18. \def\testbtape#1{\vbox\bgroup\parindent=0pt \parskip=0pt \wtest=#1
  19.   \sevenrm \hrule}
  20. \let\testetape=\egroup
  21. \def\testsides#1#2#3{\hbox{%
  22.   \vrule \parbox{.5\wtest}{#1}{\vfil\hfil#2\hfil\vfil}%
  23.   \vrule \parbox{.5\wtest}{#1}{\vfil\hfil#3\hfil\vfil}%
  24.   \vrule}\hrule}
  25. \def\testfront#1#2{\hbox{%
  26.   \vrule \parbox{\wtest}{#1}{\vfil\hfil#2\hfil\vfil}%
  27.   \phantom\vrule\vrule}\hrule}
  28. \def\tapepicture#1#2#3#4{\testbtape{#1}\testsides{#2}{}{}\testfront{#3}{}%
  29.   \testfront{#4}{}\testetape}
  30. \def\intextbox#1{\hbox{\vbox to7.5pt{\hbox{#1}\vss}}}
  31.  
  32. %---------------------------- Verbatim -------------------------------
  33. % As in the TeXbook, page 421 (manmac)
  34. \newskip\ttglue
  35. \tt \ttglue=.5em plus.25em minus.15em \rm
  36. \chardef\other=12
  37. \def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other
  38.   \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other
  39.   \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other
  40.   \catcode`\_=\other \catcode`\^=\other
  41.   \obeyspaces \obeylines \tt}
  42. {\obeyspaces\gdef {\ }} % \obeyspaces now gives \ , not \space
  43. \outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt
  44.   \catcode`\|=0 \rightskip=-5pc \ttfinish}
  45. {\catcode`\|=0 |catcode`|\=\other % | is temporary escape character
  46.   |obeylines % end of line is active
  47.   |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}}
  48. \catcode`\|=\active
  49. {\obeylines\gdef|{\ttverbatim\spaceskip=\ttglue\let^^M=\ \let|=\endgroup}}
  50.  
  51. %------------------------- Other textstyles --------------------------
  52. \font\tensc=cmcsc10 \let\sc=\tensc \let\book=\it
  53. \def\<#1>{$\langle$#1$\rangle$}
  54. \def\LaTeX{L\kern-.36em\raise.3ex\hbox{\sc a}\kern-.15emT\kern-.1667em%
  55.   \lower.7ex\hbox{E}\kern-.125emX}
  56.  
  57. %-------------------------- Section titles ---------------------------
  58. \def\section#1\par{\bigbreak\centerline{\twelverm#1}\nobreak\bigskip\noindent}
  59. \def\subsection#1\par{\smallbreak\centerline{#1}\nobreak\smallskip\noindent}
  60.